home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3.arc / ACCOUNTS.PRG next >
Encoding:
Text File  |  1984-10-25  |  2.3 KB  |  90 lines
  1.    **********  Accounts COMMAND FILE  **********
  2. * THIS IS THE CONTROL MODULE FOR ALL THE PROCEDURES USED IN THE ACCOUNTING
  3. * SYSTEM.  The menu selection here calls up sub-menus that can call
  4. * other sub-sub-menus.
  5. ******************************************************
  6. **
  7. CLEAR ALL
  8. SET TALK OFF
  9. PUBLIC F1,F2,F3,F4,F5,F6,F7,F8,F9,F10
  10. USE Functions
  11. Num = '1'
  12. DO WHILE .NOT. EOF()
  13.         F&Num = TRIM(Fnumber)
  14.         Num = STR(&Num + 1,2)
  15.         IF SPACE(1) $ NUM
  16.             Num = SUBSTR(Num,2,1)
  17.         ENDIF
  18.         SKIP
  19. ENDDO
  20. USE
  21. SET BELL OFF
  22. SET HEADING OFF
  23. SET SAFETY OFF
  24. SET FUNCTION 3 TO 'C'
  25. SET FUNCTION 4 TO 'E'
  26. SET FUNCTION 5 TO 'A'
  27. SET FUNCTION 6 TO 'D'
  28. * 
  29. DO WHILE .T.
  30.    CLEAR
  31.    ? ' * * * * * * * * * * *   M A I N   M E N U   * * * * * * * * * * *'
  32.    ?
  33.    ? '1> ENTER BILLS & TIME SHEETS        5> JOB COSTS FOR BILLING'
  34.    ? 
  35.    ? '2> PAY BILLS & SALARIES             6> RE-INDEX DATA FILES'
  36.    ?
  37.    ? '3> DEPOSITS & CHECKBOOK             7> OUTSTANDING INVOICES'
  38.    ?
  39.    ? '4> CLIENT BILLING'
  40.    ?
  41.    ? ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'
  42.    ?
  43.    ? '            Pick a number or type Q to QUIT'
  44.    ?
  45.    WAIT ' ' TO Choice
  46.    *
  47.    DO CASE
  48.     CASE Choice = '1'
  49.        @ ROW(),0 SAY 'Loading Bills & Time Sheets'
  50.        DO Costmenu
  51.     CASE Choice = '2'
  52.        @ ROW(),0 SAY 'Loading Pay Bills & Salaries'
  53.        DO Paymenu
  54.     CASE Choice = '3'
  55.        @ ROW(),0 SAY 'Loading Deposits & Checkbook'
  56.        DO Depmenu
  57.     CASE Choice = '4'
  58.        @ ROW(),0 SAY 'Loading Client Billing'
  59.        DO Invmenu
  60.     CASE Choice = '5'
  61.        @ ROW(),0 SAY 'Loading Cost For Billing'
  62.        DO Jobcosts
  63.     CASE Choice = '6'
  64.        DO Indexing
  65.     CASE Choice = '7'
  66.        CLEAR
  67.        ? '               OUTSTANDING INVOICES'
  68.        SELECT 8
  69.        USE Invoices INDEX Invoices
  70.        DISPLAY All Inv_Date, Inv_Nmbr, Client, Amount FOR Amt_Rcd = 0
  71.        WAIT
  72.        CLEAR ALL
  73.     CASE UPPER(Choice) = 'Q'
  74.        EXIT
  75.        *
  76.    ENDCASE Choice
  77. ENDDO
  78.  
  79. SET TALK ON
  80. SET BELL ON
  81. SET HEADING ON
  82. SET SAFETY ON
  83. SET FUNCTION 3 TO 'list;'
  84. SET FUNCTION 4 TO 'dir;'
  85. SET FUNCTION 5 TO 'display structure;'
  86. SET FUNCTION 6 TO 'display status;'
  87. RELEASE ALL
  88. CLEAR
  89. ? "Accounts Command File Terminated"
  90.